unit uContratoRelat;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, RLReport, DB, ADODB, RLFilters, RLPDFFilter, RLXLSFilter,
  RLPreviewForm;

type
  TrptContrato = class(TForm)
    rlrContrato: TRLReport;
    bndTitulo: TRLBand;
    bndContrato: TRLBand;
    qryContrato: TADOQuery;
    dtsContrato: TDataSource;
    RLLabel3: TRLLabel;
    qryContratoRAZAO_SOCIAL_FORNEC: TStringField;
    qryContratoLOGRADOURO_FORNEC: TStringField;
    qryContratoMUN_UF_FORNEC: TStringField;
    qryContratoCEP_FORNEC: TStringField;
    qryContratoCNPJ_FORNEC: TStringField;
    qryContratoIE_FORNEC: TStringField;
    qryContratoRAZAO_SOCIAL_CLI: TStringField;
    qryContratoLOGRADOURO_CLI: TStringField;
    qryContratoMUN_UF_CLI: TStringField;
    qryContratoCEP_CLI: TStringField;
    qryContratoCNPJ_CLI: TStringField;
    qryContratoIE_CLI: TStringField;
    qryContratoVALOR_CONTRATO: TFloatField;
    qryContratoICMS: TStringField;
    qryContratoTIPO_FRETE: TStringField;
    qryContratoFORMA_PAGAMENTO: TStringField;
    qryContratoDATA_EMISSAO: TDateTimeField;
    qryContratoDATA_EXTENSO: TStringField;
    RLDBText1: TRLDBText;
    RLDBText2: TRLDBText;
    RLLabel4: TRLLabel;
    RLDBText3: TRLDBText;
    RLDBText4: TRLDBText;
    RLDBText5: TRLDBText;
    RLDBText6: TRLDBText;
    RLDBText7: TRLDBText;
    RLLabel9: TRLLabel;
    RLDBText8: TRLDBText;
    RLDBText9: TRLDBText;
    RLDBText10: TRLDBText;
    RLDBText11: TRLDBText;
    RLDBText12: TRLDBText;
    rlmTexto: TRLMemo;
    RLLabel15: TRLLabel;
    RLDBText14: TRLDBText;
    qryContratoDATA_CARREGAMENTO: TDateTimeField;
    RLLabel16: TRLLabel;
    RLDBText15: TRLDBText;
    qryContratoNRO_CONTRATO_1: TStringField;
    qryContratoNRO_CONTRATO: TAutoIncField;
    RLLabel26: TRLLabel;
    RLDBText23: TRLDBText;
    qryContratoCOMISSAO: TStringField;
    qryContratoLOCAL_E_DATA: TStringField;
    RLLabel29: TRLLabel;
    RLDBText21: TRLDBText;
    RLLabel22: TRLLabel;
    RLDraw1: TRLDraw;
    RLLabel23: TRLLabel;
    RLDBText22: TRLDBText;
    RLDraw2: TRLDraw;
    RLLabel24: TRLLabel;
    RLDraw3: TRLDraw;
    RLLabel25: TRLLabel;
    RLDBText26: TRLDBText;
    rlmTitulo: TRLMemo;
    qryContratoDESCRICAO_PRODUTO: TStringField;
    qryContratoQTD_PRODUTO: TFloatField;
    qryContratoVALOR_UNITARIO: TFloatField;
    qryContratoVALOR_TOTAL: TFloatField;
    qryContratoQUALIDADE: TStringField;
    RLLabel1: TRLLabel;
    RLDBText17: TRLDBText;
    RLLabel2: TRLLabel;
    rldbmQUALIDADE: TRLDBMemo;
    Rlpdf1: TRLPDFFilter;
    rlxlsfltr1: TRLXLSFilter;
    img1: TRLImage;
    RLLabel5: TRLLabel;
    rldbmQUANTIDADE: TRLDBMemo;
    rldbmQTD_EXTENSO: TRLDBMemo;
    qryContratoVALOR_EXTENSO: TStringField;
    qryContratoQTD_EXTENSO: TStringField;
    RLLabel6: TRLLabel;
    rldbmValorProduto: TRLDBMemo;
    rldbmValorExtenso: TRLDBMemo;
    RLLabel7: TRLLabel;
    RLLabel8: TRLLabel;
    RLLabel10: TRLLabel;
    RLLabel11: TRLLabel;
    RLDraw4: TRLDraw;
    RLLabel17: TRLLabel;
    RLDBText16: TRLDBText;
    qryContratoOBS: TStringField;
    rldbmOBS: TRLDBMemo;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  rptContrato: TrptContrato;

implementation

uses uPrincipal, uContrato;

{$R *.dfm}

end.
